VERSION 5.00
Object = "{683364A1-B37D-11D1-ADC5-006008A5848C}#1.0#0"; "dhtmled.ocx"
Begin VB.Form frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "About MyApp"
   ClientHeight    =   3165
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5880
   ClipControls    =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   2184.54
   ScaleMode       =   0  'User
   ScaleWidth      =   5521.624
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "Live update"
      Height          =   375
      Left            =   2880
      TabIndex        =   15
      Top             =   2640
      Width           =   1335
   End
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   3360
      Top             =   2640
   End
   Begin VB.CommandButton Command1 
      Caption         =   "What's new?"
      Height          =   375
      Left            =   840
      TabIndex        =   7
      Top             =   2640
      Width           =   1935
   End
   Begin VB.PictureBox picIcon 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      ClipControls    =   0   'False
      Height          =   720
      Left            =   4920
      Picture         =   "frmAbout.frx":0000
      ScaleHeight     =   505.68
      ScaleMode       =   0  'User
      ScaleWidth      =   505.68
      TabIndex        =   1
      Top             =   120
      Width           =   720
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "Close"
      Default         =   -1  'True
      Height          =   345
      Left            =   4320
      TabIndex        =   0
      Top             =   2640
      Width           =   1260
   End
   Begin DHTMLEDLibCtl.DHTMLEdit DHTMLEdit1 
      Height          =   1575
      Left            =   840
      TabIndex        =   6
      Top             =   3240
      Visible         =   0   'False
      Width           =   4815
      ActivateApplets =   0   'False
      ActivateActiveXControls=   0   'False
      ActivateDTCs    =   -1  'True
      ShowDetails     =   0   'False
      ShowBorders     =   0   'False
      Appearance      =   1
      Scrollbars      =   -1  'True
      ScrollbarAppearance=   1
      SourceCodePreservation=   -1  'True
      AbsoluteDropMode=   0   'False
      SnapToGrid      =   0   'False
      SnapToGridX     =   50
      SnapToGridY     =   50
      BrowseMode      =   -1  'True
      UseDivOnCarriageReturn=   0   'False
   End
   Begin VB.Label Label7 
      Caption         =   "Galileo Vietnam"
      Height          =   255
      Left            =   1200
      TabIndex        =   14
      Top             =   1440
      Width           =   3015
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "This productis licensed to:"
      Height          =   255
      Left            =   960
      TabIndex        =   12
      Top             =   1080
      Width           =   4095
   End
   Begin VB.Label Label4 
      Caption         =   "Copyright  2008 Galileo Vietnam"
      Height          =   255
      Left            =   960
      TabIndex        =   11
      Top             =   720
      Width           =   3615
   End
   Begin VB.Label Label3 
      Caption         =   "For Windows 32 - bit only"
      Height          =   255
      Left            =   960
      TabIndex        =   10
      Top             =   360
      Width           =   4335
   End
   Begin VB.Label Label2 
      Caption         =   "Accounting software"
      Height          =   255
      Left            =   960
      TabIndex        =   9
      Top             =   120
      Width           =   4215
   End
   Begin VB.Label lblVersion 
      BackStyle       =   0  'Transparent
      Caption         =   "Version"
      Height          =   225
      Left            =   1200
      TabIndex        =   4
      Top             =   1680
      Width           =   3885
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   135
      Left            =   2520
      TabIndex        =   8
      Top             =   5640
      Width           =   375
   End
   Begin VB.Label lblDate 
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      Height          =   375
      Left            =   1200
      TabIndex        =   5
      Top             =   1920
      Width           =   3975
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   84.515
      X2              =   5309.398
      Y1              =   1687.583
      Y2              =   1687.583
   End
   Begin VB.Label lblDescription 
      Caption         =   "App Description"
      ForeColor       =   &H00000000&
      Height          =   690
      Left            =   13080
      TabIndex        =   2
      Top             =   2160
      Width           =   3885
   End
   Begin VB.Label lblTitle 
      Caption         =   "Application Title"
      ForeColor       =   &H00000000&
      Height          =   480
      Left            =   13440
      TabIndex        =   3
      Top             =   360
      Width           =   3885
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   98.6
      X2              =   5309.398
      Y1              =   1697.936
      Y2              =   1697.936
   End
   Begin VB.Label Label6 
      BorderStyle     =   1  'Fixed Single
      Height          =   1095
      Left            =   960
      TabIndex        =   13
      Top             =   1320
      Width           =   4695
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
  Unload Me
End Sub

 

Private Sub Command1_Click()
    Label1.Visible = True
    Timer1.Enabled = True
    DHTMLEdit1.Visible = False
    Me.MousePointer = vbHourglass

    DHTMLEdit1.LoadURL App.Path & "\versioninfo.htm"
    'DHTMLEdit1.LoadURL App.Path & "\gindocashflow.htm" 'updatelink
    DHTMLEdit1.Visible = True
    Label1.Visible = False
    Me.Height = 5520
    Timer1.Enabled = False
    Command1.Caption = "Refresh"
    Me.MousePointer = vbDefault
End Sub

 

Private Sub Command2_Click()
    WriteCurrentVersionToFile (currVer)
    Shell App.Path & "\liveupd.exe"
    End
End Sub

Private Sub Form_Load()
    Me.Top = Screen.Height / 2 - (Me.Height / 1.5)
    Me.Left = Screen.Width / 2 - (Me.Width / 2)

    Me.Caption = "About."
    'lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblVersion.Caption = "Version " & currVer
    lblDate.Caption = "Date: " & verdate
    lblTitle.Caption = "Galileo accounting software"
    Timer1.Enabled = False
    'Scriptlet1.Width = Me.Width
    'Scriptlet1.Left = 0
    Label4.Caption = "Copyright (c) 2008 Galileo Vietnam"
End Sub

   

Private Sub Timer1_Timer()
    If Len(Command1.Caption) < 30 Then
        Command1.Caption = Command1.Caption & "."
    Else
        Command1.Caption = "Getting."
    End If
End Sub
